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Range Collection 

See Also Properties Methods Events 



[Multiple objects i 

** j Range 

Represents a ceil, a row, a column, a selection of cells containing one or more contiguous blocks of cells, or a 3-D range. 
Using the Range Collection 

The following properties and methods for returning a Range object are described in this section: 

• Range property 

• Cells property 

• Range and Cells 

• Offset property 

• Union method 

Range Property 

Use Range(ayg), where arg names the range, to return a Range object that represents a single cell or a range of cells. The following 
example places the value of cell Al in cell A5. 

Worksheets ("Sheetl") .Range ("A5") .Value = _ 
Worksheets ("Sheetl") . Range ("Al") .Value 

The following example fills the range A1:H8 with random numbers by setting the formula for each cell in the range. When it's used 
without an object qualifier (an object to the left of the period), the Range property returns a range on the active sheet. If the active 
sheet isnt a worksheet, the method fails. Use the Activate method to activate a worksheet before you use the Range property 
without an explicit object qualifier. 

Worksheets ("Sheetl") .Activate 

Range ("A1:H8") . Formula = "=Rand()" 'Range is on the active sheet 

The following example clears the contents of the range named Criteria. 
Worksheets (1) . Range ( "Criteria") . ClearContents 

If you use a text argument for the range address, you must specify the address in Al-style notation (you cannot use RICl-style 
notation). 

Cells Property 

Use Cells(/iw, column) where mw\s the row index and column is the column index, to return a single cell. The following example sets 
the value of cell Al to 24. 

Worksheets (1) .Cells (1, 1) .Value = 24 
The following example sets the formula for cell A2. 

ActiveSheet. Cells (2, 1). Formula * "=Sum (Bl : B5) " 

Although you can also use Range ( "Al " ) to return cell Al, there may be times when the Cells property is more convenient 
because you can use a variable for the row or column. The following example creates column and row headings on Sheetl. Notice that 
after the worksheet has been activated, the Cells property can be used without an explicit sheet declaration (it returns a cell on the 
active sheet). 
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Sub SetUpTableO 

Worksheets ("Sheetl") .Activate 

For TheYear = 1 To 5 

Cells (1, TheYear + 1) .Value = 1990 + TheYear 
Next TheYear 
For TheQuarter = 1 To 4 

Cells (TheQuarter + I, 1) .Value = "Q" & TheQuarter 
Next TheQuarter 
End Sub 

Although you could use Visual Basic string functions to alter Al-style references, it's much easier (and much better programming 
practice) to use the Cells ( 1 , 1 ) notation. 

Use express/on.Ce\ls(row, column) , where expressions an expression that returns a Range object, and row and columnar* relative 
to the upper-left comer of the range, to return part of a range. The following example sets the formula for cell C5. 

Worksheets (1 ) . Range ( "C5 : CIO") . Cells (1, 1). Formula = "=Rand()" 



Use Range(asW„ cdl2), where cdll and ce//2are Range objects that specify the start and end cells, to return a Range object. The 
following example sets the border line style for cells Al'JIO. 

With Worksheets (1) 

.Range (. Cells (1, 1), 

.Cells(10, 10) ) .Borders. LineStyle = xlThick 

End With 

Notice the period in front of each occurrence of the Cells property. The period is required if the result of the preceding With 
statement is to be applied to the Cells property — in this case, to indicate that the cells are on worksheet one (without the period, the 
Cells property would return cells on the active sheet). 



Offset Property 

Use Offset(/tw, column), where row and column are the row and column offsets, to return a range at a specified offset to another 
range. The following example selects the cell three rows down from and one column to the right of the cell in the upper-left comer of 
the current selection. You cannot select a cell that isnt on the active sheet, so you must first activate the worksheet 

Worksheets ("Sheetl") .Activate 

•Can't select unless the sheet is active 
Selection. Offset (3, 1) .Range ("Al") . Select 



Union Method 

Use \Mon{rangel, range2, ...) to return multiple-area ranges — that is, ranges composed of two or more contiguous blocks of cells. 
The following example creates an object defined as the union of ranges A1:B2 and C3:D4, and then selects the defined range. 

Dim rl As Range, r2 As Range, myMultiAreaRange As Range 

Worksheets ("sheetl") .Activate 

Set rl = Range ("A1:B2") 

Set r2 = Range ("C3:D4") 

Set myMultiAreaRange = Union (rl, r2) 

myMultiAreaRange . Select 

If you work with selections that contain more than one area, the Areas property is very useful. It divides a multiple-area selection into 
individual Range objects and then returns the objects as a collection. You can use the Count property on the returned collection to 
check for a selection that contains more than one area, as shown in the following example. 

Sub NoMultiAreaSelection () 

NumberOfSelectedAreas = Selection. Areas . Count 
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If NumberOfSelectedAreas > 1 Then 

MsgBox "You cannot carry out this command " & 
"on multi-area selections" 

End If 
End Sub 
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